home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / indus / auto_inv / inv_0110.prg < prev    next >
Text File  |  1991-08-07  |  5KB  |  184 lines
  1. *--------------------------------------------------------------------------
  2. * Program KEV_0110 - Add New Invoice - Labor Costs Kevins Subaru Invoicing
  3. *                       (c) 1989 Systematics Consulting, Inc.
  4. *--------------------------------------------------------------------------
  5. CLOSE ALL
  6. SELECT 2
  7. USE KEV_LBOR INDEX KEV_IDX2
  8.  
  9. DO WHILE .T.
  10. ANSWER = " "
  11. A_LABR_DESC = SPACE(50)
  12. A_LABR_COST = 0000.00
  13. B_LABR_DESC = SPACE(50)
  14. B_LABR_COST = 0000.00
  15. C_LABR_DESC = SPACE(50)
  16. C_LABR_COST = 0000.00
  17. D_LABR_DESC = SPACE(50)
  18. D_LABR_COST = 0000.00
  19. E_LABR_DESC = SPACE(50)
  20. E_LABR_COST = 0000.00
  21. F_LABR_DESC = SPACE(50)
  22. F_LABR_COST = 0000.00
  23. G_LABR_DESC = SPACE(50)
  24. G_LABR_COST = 0000.00
  25. H_LABR_DESC = SPACE(50)
  26. H_LABR_COST = 0000.00
  27. I_LABR_DESC = SPACE(50)
  28. I_LABR_COST = 0000.00
  29.  
  30.   CLEAR
  31.  
  32.    @ 24, 10 SAY  "Systematics Consulting, Inc. (303)674-8445 - Program KEV_0110"
  33.    @ 1,  1 SAY  DATE()
  34.    @ 1, 71 SAY  TIME()
  35.    @ 2,  5 TO  5,75  DOUBLE
  36.  
  37.    @ 3, 15 SAY  "             KEVIN'S SUBARU               "
  38.    @ 4, 15 SAY  "        Add New Invoice - Labor Costs     "
  39.  
  40.  
  41. @  6,  10 SAY "Invoice #: "
  42. @  6,  25 SAY INVNUM PICTURE "#####"
  43. @  6,  35 SAY INVNAME
  44.  
  45. X = 8
  46. @ X,  8  SAY "Description:"
  47. @ X, 60  SAY "Cost:"
  48. X = X + 2
  49.  
  50. @ X,  8  GET  A_LABR_DESC
  51. @ X, 60  GET  A_LABR_COST PICTURE "####.##"
  52. X = X+1
  53. @ X,  8 GET  B_LABR_DESC
  54. @ X, 60  GET  B_LABR_COST PICTURE "####.##"
  55. X = X+1
  56. @ X,  8  GET  C_LABR_DESC
  57. @ X, 60  GET  C_LABR_COST PICTURE "####.##"
  58. X = X+1
  59. @ X,  8  GET  D_LABR_DESC
  60. @ X, 60  GET  D_LABR_COST PICTURE "####.##"
  61. X = X+1
  62. @ X,  8  GET  E_LABR_DESC
  63. @ X, 60  GET  E_LABR_COST PICTURE "####.##"
  64. X = X+1
  65. @ X,  8  GET  F_LABR_DESC
  66. @ X, 60  GET  F_LABR_COST PICTURE "####.##"
  67. X = X+1
  68. @ X,  8  GET  G_LABR_DESC
  69. @ X, 60  GET  G_LABR_COST PICTURE "####.##"
  70. X = X+1
  71. @ X,  8  GET  H_LABR_DESC
  72. @ X, 60  GET  H_LABR_COST PICTURE "####.##"
  73. X = X+1
  74. @ X,  8  GET  I_LABR_DESC
  75. @ X, 60  GET  I_LABR_COST PICTURE "####.##"
  76.  
  77. @ 22, 14  SAY "Enter data, Press <CTL><END> at any time to save data."
  78. @ 21,  9  TO 23, 71    DOUBLE
  79.  
  80. READ
  81.  
  82. @ 22, 14  SAY "    ADDING DATA TO DATA BASE                          "
  83. @ 21,  9  TO 23, 71    DOUBLE
  84.  
  85. IF A_LABR_DESC <> " "
  86. APPEND BLANK
  87. REPLACE  KEV_LBOR->INV_NO  WITH INVNUM
  88. REPLACE  KEV_LBOR->LABOR_DESC  WITH A_LABR_DESC
  89. REPLACE  KEV_LBOR->LABOR_COST  WITH A_LABR_COST
  90. ENDIF
  91.  
  92. IF B_LABR_DESC <> " "
  93. APPEND BLANK
  94. REPLACE  KEV_LBOR->INV_NO  WITH INVNUM
  95. REPLACE  KEV_LBOR->LABOR_DESC  WITH B_LABR_DESC
  96. REPLACE  KEV_LBOR->LABOR_COST  WITH B_LABR_COST
  97. ENDIF
  98.  
  99. IF C_LABR_DESC <> " "
  100. APPEND BLANK
  101. REPLACE  KEV_LBOR->INV_NO  WITH INVNUM
  102. REPLACE  KEV_LBOR->LABOR_DESC  WITH C_LABR_DESC
  103. REPLACE  KEV_LBOR->LABOR_COST  WITH C_LABR_COST
  104. ENDIF
  105.  
  106. IF D_LABR_DESC <> " "
  107. APPEND BLANK
  108. REPLACE  KEV_LBOR->INV_NO  WITH INVNUM
  109. REPLACE  KEV_LBOR->LABOR_DESC  WITH D_LABR_DESC
  110. REPLACE  KEV_LBOR->LABOR_COST  WITH D_LABR_COST
  111. ENDIF
  112.  
  113. IF E_LABR_DESC <> " "
  114. APPEND BLANK
  115. REPLACE  KEV_LBOR->INV_NO  WITH INVNUM
  116. REPLACE  KEV_LBOR->LABOR_DESC  WITH E_LABR_DESC
  117. REPLACE  KEV_LBOR->LABOR_COST  WITH E_LABR_COST
  118. ENDIF
  119.  
  120. IF F_LABR_DESC <> " "
  121. APPEND BLANK
  122. REPLACE  KEV_LBOR->INV_NO  WITH INVNUM
  123. REPLACE  KEV_LBOR->LABOR_DESC  WITH F_LABR_DESC
  124. REPLACE  KEV_LBOR->LABOR_COST  WITH F_LABR_COST
  125. ENDIF
  126.  
  127. IF G_LABR_DESC <> " "
  128. APPEND BLANK
  129. REPLACE  KEV_LBOR->INV_NO  WITH INVNUM
  130. REPLACE  KEV_LBOR->LABOR_DESC  WITH G_LABR_DESC
  131. REPLACE  KEV_LBOR->LABOR_COST  WITH G_LABR_COST
  132. ENDIF
  133.  
  134. IF H_LABR_DESC <> " "
  135. APPEND BLANK
  136. REPLACE  KEV_LBOR->INV_NO  WITH INVNUM
  137. REPLACE  KEV_LBOR->LABOR_DESC  WITH H_LABR_DESC
  138. REPLACE  KEV_LBOR->LABOR_COST  WITH H_LABR_COST
  139. ENDIF
  140.  
  141. IF I_LABR_DESC <> " "
  142. APPEND BLANK
  143. REPLACE  KEV_LBOR->INV_NO  WITH INVNUM
  144. REPLACE  KEV_LBOR->LABOR_DESC  WITH I_LABR_DESC
  145. REPLACE  KEV_LBOR->LABOR_COST  WITH I_LABR_COST
  146. ENDIF
  147.  
  148. REINDEX
  149.  
  150. @ 22, 14  SAY "  ADD FUNCTION COMPLETE                               "
  151. @ 21,  9  TO 23, 71    DOUBLE
  152.  
  153. CLEAR
  154.  
  155.    @ 24, 10 SAY  "Systematics Consulting, Inc. (303)674-8445 - Program KEV_0110"
  156.    @ 1,  1 SAY  DATE()
  157.    @ 1, 71 SAY  TIME()
  158.    @ 2,  5 TO  5,75  DOUBLE
  159.    @ 3, 15 SAY  "             KEVIN'S SUBARU               "
  160.    @ 4, 15 SAY  "             Add New Invoice              "
  161.  
  162. ANSWER = "1"
  163. @ 21, 14  SAY "Enter 1 to Add Parts, 2 to Return to Menu,  "
  164. @ 22, 14  SAY "any other character to add more Labor: "  GET ANSWER
  165. @ 20,  9  TO 23, 70    DOUBLE
  166. READ
  167.  
  168.  
  169. IF ANSWER = "2"
  170.   CLOSE ALL
  171.   RETURN TO MASTER
  172.   ENDIF
  173.  
  174. IF ANSWER = "1"
  175.   CLOSE ALL
  176.   DO KEV_0120
  177.   ENDIF
  178.  
  179. LOOP
  180. ENDDO
  181. CLOSE ALL
  182. RETURN  TO MASTER
  183. *---------- END OF PROGRAM ----------------
  184.